home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Modem Options.xpl < prev    next >
Text File  |  2001-04-14  |  1KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="Init Commands"
  6. "VERSION"="1.23"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Command 1"
  9. "TEXT 2"="Command 2"
  10. "TEXT 3"="Command 3"
  11. "TEXT 4"="Command 4"
  12. "DESCRIPTION 1"="Here you can change the commands that are sent to your modem before dialing easily."
  13. "DESCRIPTION 2"="Please include <cr> at the end of the command string. This will signal the init command to the modem as the last instruction on the line. Your modem might get confused if you don't include the <cr>"
  14. "DESCRIPTION 3"="Not all modems/drivers work with this, so if it appears disabled to you, don't worry."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to Anthony Perez for the <cr> tip"
  20.  
  21.  
  22. Sub Plugin_Initialize 
  23.  if RegPathExists("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init") then
  24.  
  25.   for i=1 to 4
  26.    s=RegReadValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i) 
  27.    SetUIElement i,s
  28.   next 
  29.  
  30.  else
  31.   Disable
  32.  end if
  33. End Sub
  34.  
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39.  
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  for i=1 to 4
  43.   s=GetUIElement(i)
  44.   Call RegWriteValue("HKLM\System\CurrentControlSet\Services\Class\Modem\0000\Init\" & i,s,1) 
  45.  next 
  46. End Sub
  47.  
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.  
  52.  
  53.  
  54.